home *** CD-ROM | disk | FTP | other *** search
/ Web Publisher's Design Gu…or Windows (2nd Edition) / design.iso / otherfiles / sideshow (shockwave) / 00116.ls < prev    next >
Encoding:
Text File  |  1995-08-28  |  577 b   |  28 lines
  1. on exitFrame
  2.   if rollOver(5) then
  3.     muZak("Arc welder")
  4.     puppetSprite(2, 1)
  5.     puppetSprite(3, 1)
  6.     puppetSprite(6, 1)
  7.     puppetSprite(8, 1)
  8.     puppetSprite(9, 1)
  9.     set the castNum of sprite 3 to 25
  10.     startTimer()
  11.     repeat while the timer < 30
  12.       repeat with i = 120 to 127
  13.         set the castNum of sprite 2 to i
  14.         qMark()
  15.         updateStage()
  16.       end repeat
  17.     end repeat
  18.   else
  19.     puppetSound(0)
  20.     puppetSprite(2, 0)
  21.     puppetSprite(3, 0)
  22.     puppetSprite(6, 0)
  23.     puppetSprite(8, 0)
  24.     puppetSprite(9, 0)
  25.     updateStage()
  26.   end if
  27. end
  28.